Signed Integer Arithmetic 
on the HPCTM 



This report describes the impiementation of signed integer 
arithmetic operations on the HPC. HPC hardware support 
for unsigned arithmetic operation. In order to support signed 
integer arithmetic operations on the HPC, the user can rep- 
resent negative numbers in two's complement form and 
perform the signed arithmetic operations explicitly through 
software. 

The following signed integer arithmetic routines are imple- 
mented in the package: 
Multiplication: 
16 by 16 yielding 16-bit result 
32 by 32 yielding 32-bit result 
Division: 
16 by 8 yielding 16-bit quotient and 16-bit remainder 
32 by 16 yielding 16-bit quotient and 16-bit remainder 
32 by 32 yielding 16-bit quotient and 16-bit remainder 
Addition: 
16 by 16 yielding 16-bit 



.title SIMUSL 

.sect code, romS, byte, rel 

Signed multiply (16 by 18) 

B Multiplicand 

A Multiplier 

X ;A return 



.public 


si 


gne 


d.mult.lS 


.local 








signed_mult_16: 








St 






a.O.w 


mult 






a,b 


so 








ifbit 






7,(l).b 


subc 






x,b 


so 








ifbit 






7, (B-l-1) .b 


subo 






x.O.w 



lexit : 



.endseot 
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Subtraction: 

16 by 16 yielding 16-bit 
Comparison: 

16 by 16 for greater to, less than or equal to. 
REPRESENTATION OF NEGATIVE NUMBERS: 

For binary numbers, negative numbers are represented in 
two's complement form. In this system, a number is positive 
if the MSB is 0, negative if it is 1. 

The decimal equivalent of two's complement number is 
computed the same as for an unsigned number, except that 
weight of the MSB is -2"n - 1 instead of -l-2**n - 1. 
The range of representable numbers is — (2**n — 1) 
through +(2**n - 1 - 1). 

The two's complement of a binary number is obtained by 
complementing its individual bits and adding one to it. 
The advantage of representing a negative number in two's 
complement form is that addition and subtraction can be 
done directly using unsigned hardware. 
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;do unsigned multiplication. 
;if multiplier is negative 

;if multiplicand is negative 
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MULTIPLICATION 

Method 1: 

Signed multiplication can be achieved by tal<ing care of tiie 
signs and magnitudes of the multiplicand and multiplier sep- 
arately. 

Perform the multiplication on the magnitudes alone. 
The sign of the result can be set based on the signs of the 
multiplier and the multiplicand. 

Method 2: 

This method does not require finding the magnitude of the 
operands. Multiplication can be done using unsigned hard- 
ware on the two's complement numbers. The result will be 
signed based on the signs of the operands. 



The algorithm is as follows: 
Step 1 . Result = op1 * op2 
Step 2. If op1 < then subtract op2 from upper half of the 

result. 
Step 3. If op2 < then subtract op1 from upper half of the 

result. 
Now the Result will yield the correct value of the multiplica- 
tion on two's complement numbers. 

Method 3: 

By sign extending the multiplier and multiplicand to the size 
of the result one can always obtain the correct result of 
signed multiplication using unsigned multiplication. 



.title 
.sect 



SI MULL 
code, roil 



byte.rel 

Multiply (Signed or Unsigned are the same) 
32 bit 

K:A Multiplicand 

-4:6[SP] Multiplier 
K:A return 

.public multiply_32 



.local 




multiply_32: 




push 


X 


st 


a.O.w 


Id 


a,k 


mult 


a,-8[sp] .w 


X 


a.O.w 


push 


a 


mult 


a-8[sp] .w 


add 


O.w.a 


pop 


a 


mult 


a,-8[sp] .w 


add 


x.O.w 


Id 


k,x 


pop 


X 


ret 




.endsect 





; (Argument now at -6:8[SP]) 

;Multiply hi reg* lo stack 

;hold, retrieve lo reg 

; (argument now at -8:10[SP]) 

;Multiply lo reg* hi stack 

;add into hi partial 

; (Argument now at -6:8[SP]) 

;Multiply lo reg" lo stack 

;add in hi partial 

;Posltion 

rRestore 



DIVISION 






Similar to multiplication method 1 , one can perform the division on the magnitudes of the dividend and divisor. 


The sign of the quotient can be set based on the signs of the dividend and the divisor. 


The sign of the remainder will be same as the dividend. 




.title 


SIDVSS 




.sect 


code , romS , byte , rel 






Division & Remainder 








16,8 bit (signed only. 


unsigned uses inline code) 






A 


Dividend 






-4[SP] 


Divisor 






A 


return 




.public signe 


d_divide_8,signed_remainder_8 




.public signe 


d_divide_16, signed_remainder_16 




.local 






signed_divide_8 : 






jsr 


$shared_8 


;Uses shared routine 


ret 






signed_remainder_8 ; 






jsr 


|shared_8 


;Uses shared routine 


Id 


a,k 


;Return remainder 


ret 






$shared_8: 






ifgt 


a,#0x7f 




or 


a,#OxffOO 




St 


a,k 


;Get arguments 


Id 


a,-6[sp] .w 




ifgt 


a,#0x7f 




or 


a,#OxffOO 




jp 


Ishared 




signed_divide_16 ; 






jsr 


$shared_16 


;Uses shared routine 


ret 






signed_reniainder_16 : 






jsr 


|shared_16 


;Uses shared routine 


Id 


a,k 


;Return remainder 


ret 






$share_16: 






st 


a,k 


;Get arguments 


Id 


a,-6[sp] .w 




Jshared 






ifeq 


a,#0 




ret 




;division by zero 


push 


X 




ifgt 


a,#0x7fff 




jp 


|unknown_negative 


;unknown/ne gat i ve 


X 


a,k 




ifgt 


a,#0x7fff 




jp 


$negative_positive 


;negative/positive 


div 


a,k 


;Positive/positive is plus, plus 


jp 


tpositive.positive 





$unknown_negative : 




oomp 


a 


ino 


a 


X 


a,k 


Ifgt 


a,#0x7fff 


jp 


$negative_negative 


div 


a,k 


oomp 


a 


ino 


a 


$positive_positive : 




Id 


k,x 


jp 


$exit 


$negative_positive : 




oomp 


a 


ino 


a 


dlv 


a,k 


oomp 


a 


ino 


a 


3p 


$negate_remainder 


$negative_negative : 




oomp 


a 


ino 


a 


div 


a,k 


$negate_remainder : 




X 


a,x 


oomp 


a 


ino 


a 


St 


a,k 


Id 


a,x 


$exit: 




pop 


X 


ret 




.endsect 





;Unknown/negative 



; negative/negative 
;Positive/negative is minus, plus 



;Negative/posltive is minus, minus 



;Negative/negative is plus, minus 



.title 


SIDVLS 




.sect 


code,rom8,byte,rel 






Division & Remainder 








Signed 32 by 16 divide 








X;A 


Dividend 






K 


Divisor 






X,A 


return (remainder and 


quotient) 


.public signe 


d_div_32 




.local 






signed_div_32: 






sc 






ifeq 


k,#0 




ret 




;Divide by zero, set carry and return 


$shared_signed: 






ifbit 


7,x+l.b 




jp 


$negative_dividend 




Jsr 


$process_di visor 


;Skipping return 


ret 




;+/+=+,+ 


$negate_quotient : 






comp 


a 




inc 


a 




ret 




;+/-= -,+ 


$negative_dividend ; 






comp 


a 




add 


a, #01 




X 


a,x 




comp 


a 




ado 


a,#0 




X 


a,x 




jsr 


|process_divisor 


;skipping return 


jsr 


Inegate .quotient 


;-/+=-,- 


$negate_remainder : 




;-/-=+.- 


X 


a,x 




comp 


a 




inc 


a 




X 


a,x 




ret 






$process_divisor: 






ifbit 


7,k+l.b 




jp 


$negative_divisor 




divd 


a,k 


;?/+ 


ret 






$negative_divisor : 






X 


a,k 




comp 


a 




inc 


a 




X 


a,k 




divd 


a,k 


;?/- 


retsk 






.endsect 







.title 
.sect 



SUDVLL 

code , romS , byte , rel 



Division & Remainder 

Signed 32 by 32 Divide 

K:A Dividend 

-4:6[SP] Divisor 
K:A return 



Stack frame 

top: 

0, 
0, 
k, 



as built and used consists of 

initial subtrahend hi /dividend shifts into subtrahend 
initial subtrahend lo /becomes remainder 
dividend hi /dividend shifts into subtrahend, and 

a, dividend lo /quotient shifts into dividend 

b preserved 

X preserved 

return address 

sp-4-12, divisor hi 

sp-6-12, divisor lo 
Sign flag (0 = negative, 1 = positive, for test sense at exit) 
bit 0, divisor sign (1 = negative) 
bit 1, dividend sign (1 = positive) 

Inc of flag causes bit 1 = (bit 1 xor bit 0) by carry /nocarry out of bit 
so that two positives (010) or two negatives (001) indicate a positive 
quotient (Oil or 010) in bit 1. Bit 1 always indicates sign if remainder. 
Operation is indicated by bit 3 of the flag, 1 = remainder. 

.public signed_divide_32, signed_remainder_32 

.public unsigned_divide_32, unsigned_remainder_32 
.local 
signed_divide_32 : 

Id l.b,#0x02 

:p $shared_signed 



slgned_remainder_32: 

Id 
Jshared.signed: 

ifbit 

:sr 

ifbit 

jp 

:mp 



l.b,#OxOa 

7,k+l.b 
$negate 
7,-6+3[sp] .b 
$negate_divisor 
Sshared 



;Check dividend 

;Negate dividend and note sign 

;Check divisor 



$negate_divisor : 



X 




a,-6[sp] .w 


comp 




a 


add 




a,#l 


X 




a,-6[sp] .w 


X 




a,-4[sp] .w 


comp 




a 


adc 




a,#0 


X 




a,-4[sp] .w 


sbit 




0,1. b 


jp 




$shared 


unsigned_divide. 


.32: 




Id 




l.b,#0x02 


:p 




Jshared 


unslgned_remainder_32 : 




Id 




l.b,#0x0a 



;Kegate divisor and note sign 



$shared: 










push 


X 


;Preserve registers 




push 


b 






Id 


b,sp 


;Place dividend, becomes quotient 




push 


a 






push 


k 






Id 


x,sp 


;Set subtrahend, becomes remainder 




olr 


a 






push 


a 






push 


a 






Id 


k,#-18 


;Access divisor argument 




add 


k,sp 






Id 


a,[k].w 






or 


a,2[k].w 






Ifeq 


a,#0 






jmp 


$zero 


;division by zero 




Id 


0.b,#32 


;Set counter 


$loop : 










Id 


a,[b].w 


;Shift Dividend :Quotient 




shl 


a 






xs 


a, [b+] .w 






nop 








Id 


a,[b].w 






rlo 


a 






xs 


a,[b-].w 






nop 








Id 


a, [x] .w 






rlo 


a 






X 


a, [x+] .w 






Id 


a, [x] .w 






rlo 


a 






X 


a, [X-] .w 






ifo 








3p 


{subtract 


;Carry out - dividend divisor 




so 




;Check for dividend divisor 




Id 


a, [x+] .w 






subc 


a,[k].w 






Id 


a, [X-] .w 






subc 


a,2[k].w 






ifnc 








jp 


{count 


;dividend divisor 


$subtraot 










Id 


a, [x] .w 


;Subtraot out divisor (o is set) 




subc 


a,[k].w 






X 


a, [x+] .w 






Id 


a, [x] .w 






subc 


a,2[k].w 






X 


a, [X-] .w 






sblt 


0,[b].b 


;Set quotient bit 


$oount : 










decsz 


O.b 


;Count 32 shifts 




jmp 


{loop 




$zero : 










pop 


k 


;Get Remainder and/or Quotient 




pop 


a 


;and clear working off stack 




pop 


X 






pop 


b 






ifblt 


3,l.b 






jp 


lexlt 


;want remainder, have it 




Id 


a,b 


;Want Quotient 




Id 


k,x 






ino 


l.b 


;Divisor's sign Xors Dividend's 



$negate : 



pop 


b 


pop 


X 


Ifbit 


1,1. b 


ret 




oomp 


a 


add 


a,#l 


X 


a,k 


oomp 


a 


ado 


a,#0 


X 


a,k 


rbit 


1,1. b 


ret 




.endseot 





;Restore registers 

;posltive result 
;Kegate K:A 



;Note sign (for entrance) 



ADDITION 


Two's complement numbers can be added by ordinary binary addition, ignoring any carries beyond the MSB. The result will 


always be the correct sum as long as the result doesn't exceed the range. 


If the result is the same as for the subtrahend, then overflow has occurred. 


.title SIADD 


.sect code, romS, byte ,rel 




Signed add (16 by 16) 




A Operandi 




B 0perand2 




Carry Return 


.public sign_add 


.local 


sign_add : 


Id 0.b,#00 


ifbit 7, (A+l).b 


ino O.b 


ifbit 7, (B+l).b 


inc O.b 


;if bit of O.b = 1 then opl and op2 have different sign 


;if bit of O.b = then opl and op2 sign are same 


;then if bit 1 of O.b = both operands are positive 


;else both operands are negative. 


add a,b ;Perform unsigned addition 


re 


ifbit O.O.b ;both operands are different sign 


ret 


ifbit l.O.b ;both opl and op2 are negative 


jp ^negatives 


^positives: ;both opl and op2 are positive 


ifbit 7,(A+l).b ;if result sign is negative then 


set overflow bit 


sc ;overflow 


ret 


^negatives : 


ifbit 7,(A+l).b ;if sign bit of result is 


negative, then no overflow 


ret 


sc ;overflow 


$exit : 


ret 


.endsect 



SUBTRACTION 


Subtraction can be achieved by negating the subtrahend and perform the addition operation. 


Overflow can be detected as mentioned before by checking the signs of minuhend and the negation of the subtrahend and that 


of the sum. 


.title SISUB 


.sect code, romS, byte, rel 


;Slgned subtract (16 by 16) 


; B Operandi 


; A 0perand2 


; Carry, A Return 


.public sign_sub 


.local 


sign. sub : 


Id 0.b,#00 ;initialize sign flags 


ifbit 7,(B+l).b 


inc O.b 


$negate_A: 


oomp A 


inc A 


$ngative_comp_A: 


ifbit 7, (A+1) .b 


inc O.b 


;if bit of O.b = 1 then opl and op2 have different sign 


;if bit of O.b = then opl and op2 sign are same 


;then if bit 1 of O.b = both operands are positive 


;else both operands are negative. 


add A,B ;Perform unsigned addition 


re 


ifbit 0,0.b ;both operands are different sign 


ret 


ifbit l,0.b ;both opl and op2 are negative 


:p $negatives 


^positives: ;both opl and op2 are positive 


if bit 7, (A+l).b ;if result sign is negative then 


set overflow bit 


sc ;bit of byte O.b is set to 


indicate overflow 


ret 


^negatives : 


ifbit 7, (A+l).b ;if sign bit of result is 


negative, then no overflow 


ret 


sc ;sign bit of result is positive. 


hence overflow. 


Jexit :ret 


.endsect 
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.title NSISUB 

.sect code, romS, byte, rel 

;Signed sub (16 by 16) 

A Operandi 

B 0perand2 

Carry Return 

.public sign_sub 

.local 
sign_sub: 

Id 0.b,#00 

ifbit 7, (A+l).b 

inc O.b 

ifbit 7, (B+l).b 

inc O.b 

;if bit of O.b = 1 then opl and op2 have different sign 

;if bit of O.b = then opl and op2 sign are same 

;then if bit 1 of O.b = both operands are positive 

;else both operands are negative. 

sc 

subc a,b ;Perform unsigned addition 

re 

ifbit O.O.b ;both operands are different sign 

]p $chkovf 

ret ;both operands are same sign, 

can't produce overflow 
$chkovf : 





ifbit 


7,(B+1) .b 




jp 


{negminu 


posminu: 








ifbit 


7, (A+1) .b 




sc 






ret 




negminu: 








ifbit 


7, (A+1) .b 




so 






ret 






.endsect 
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COMPARISON 

To do signed comparison on n bit two's complement numbers first add 2**(n - 
the numbers from -(2**n - 1) to +(2**n - 1 - 1) range to to 2"n - 1. 
Now comparison operations on the numbers will produce the correct result. 



1) to the numbers. This will basically shift 



c 












o 




.title 




SI CMP 




o 




.sect 




code ,rom8,byte 


rel 














*^ 












a) 

E 


Signed 


compare 


(16 by 


16) 






A 




Operandi 




'Z 




B 




Operand2 




< 




O.b 




Return=00 




^ 








02 




0) 








01 




o> E 


igned_ 


compare : 








(1) 




push 




a 








push 




b 




^ 




add 




a, #08000 




■D 




add 




b, #08000 




0) 

c 




ifgt 




a,b 






Jp 




Sgreat 




in 


less : 
great : 


ifeq 
jp 

Id 
pop 
pop 
ret 

Id 
pop 
pop 
ret 




a,b 

$equ 

O.b, #01 

b 

a 

O.b, #02 

b 

a 




\ 


equ: 


Id 
pop 
pop 
ret 




O.b, #00 

b 

a 








.endseot 







if a = b 
if a > b 
if a < b 



LIFE SUPPORT POLICY 

NATIONAL'S PRODUCTS ARE NOT AUTHORIZED FOR USE AS CRITICAL COMPONENTS IN LIFE SUPPORT 
DEVICES OR SYSTEMS WITHOUT THE EXPRESS WRITTEN APPROVAL OF THE PRESIDENT OF NATIONAL 
SEMICONDUCTOR CORPORATION. As used herein; 

1. Life support devices or systems are devices or 2. A critical component is any component of a life 



systems which, (a) are intended for surgical implant 
into the body, or (b) support or sustain life, and whose 
failure to perform, when properly used in accordance 
with instructions for use provided in the labeling, can 
be reasonably expected to result in a significant injury 
to the user. 



support device or system whose failure to perform can 
be reasonably expected to cause the failure of the life 
support device or system, or to affect its safety or 
effectiveness. 
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